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Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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| 
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LL III] BBB8B8B8 LL 000000 000000 KK KK UU UU PPPPPPPP 

LL I1111] BBBBBBBB LL 000000 000000 KK KK UU UU PPPPPPPP 

LL I] BB BB LL 00 00 00 OO KK KK UU UU PP PP 

LL I! BB BB LL 00 00 00 OO KK KK UU UU PP PP 

LL I] BB BB LL 00 00 00 OO KK KK UU UU PP PP 

LL I] BB BB LL 00 00 00 00 KK KK UU UU PP PP 

LL I] BBBBBBBB LL 00 00 00 OO KKKKKK UU UU PPPPPPPP 

LL II BBBBBBBB LL 00 00 00 O00 KKKKKK UU UU PPPPPPPP 

LL Il BB BB LL 00 00 00 OO KK KK UU UU PP 

LL I] BB BB LL 00 00 00 OO KK KK UU UU PP 

LL I] BB BB LL 00 00 00 OO KK KK UU UU PP cece 
LL I] BB BB LL 00 00 00 00 KK KK UU UU PP cece 
LLLLLLLLLL III! BBBBBBBB LLLLLLLLLL 000000 000000 KK KK UUUUUUUUUU PP cove 
LLLLLLLLLL III] BBBBBBBB LLLLLLLLLL 000000 000000 KK KK UUUUUUUUUU PP cece 
LL IIIIII SSSSSSSS 

LL 11111 SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] S$ 

LL Il $$ 

LL I] SS 

LL I] $s 

LLLLLLLLLL IIIIII SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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14-Sep 2 9: 96:08 CTBRTLS SR ROIL 16.0 oKUP. aS2; 31 . and 

: 1 000 MODULE LIBSLOOKUP_KEY ( ! Keyword lookup routine 

3 § 008 IDENT = '1=012" ! File: LIBLOOKUP.B32 Edit: RKR1012 | 

a 005 )s | 

it aoe ee | 

: 3 44 } ee eee eee 

3 if com 

; 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 

ta 0011 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 

; \§ pore ! is ALL RIGHTS RESERVED. * 

; } % 

3 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 

. 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

; 16 B28 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TUA RE OR ANY OTHER * 

3 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 

; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; y dh : ? TRANSFERRED. * 

Z i® a 

; 21 $054 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 $$ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 Si 4 ? : = CORPORATION. * 

Ps z ® 

; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 

3 $$ BB § : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

P : % 

; & 0028 1 !* * 

: 50 +594 ’ jeecagennenaseoeresenensasensenenestesearereneseenseneoenTeneneTanereeunenTeT 

. 0031 1— 

; 3 ik 1 4+ 

; & 0035 1! FACILITY: General Utility Procedure Library 

. - 0034 1! 

; 3 0035 1 ! ABSTRACT: 

oe 0036 1! 

eo 0037 1! This routine attempts to match a caller-specified character 

; $ site : string with a table of keywords built by the caller. 

3 re sre ! ENVIRONMENT: User mode, AST re-entrant. Non-shared library 

> 42 0042 1 | AUTHOR: Ward Clark, CREATION DATE: 10 January 1978 

; 643 0043 1! 

: «6446 pee 1 ! MODIFIED BY: 

; «645 045 1! Jonathan M. Taylor - 5-Mar-78 

- & 0046 1! 

3; 647 0047 1! 0-2 - raee coll i tet! Liess OPY_R_DX after changing parameter 

: 68 0048 1! order. 

; «49 0049 1! 0-03 = Change t3 MSTARLET 3, ees DGP May i | 

; 0050 1 ! 0-04 = Change REQUIRE files for VAX s uild. DGP 28-Apr-78 

; 0051 1! “3? - Change STARLE? ¢ o RTLSTARLE t to ngyoid conflicts. DGP 7 ter? 

$ 26 03g 1! 0- $ - Addressi 4 a a ene ot for LIBS at , 1? ~yyne=76 

3 0535 1! 0- ~ faange ¢% e name “to LIBL fe 14-NOV-78 

; | «(54 054 1 ! 1-001 - Update version number. aT ae 

aya. 0055 1 ! 1-002 - Ronove REQUIRE of LIBMAC. only Mlithone 1 is ying, it so 

$ 28 B28 1! put its text directly in this fil JBS 1 

o: SS 0057 1 ! 1-003 = Add REQUIRE of LIBMSG to Baie error eel JBS 11-DEC-78 


Ll 
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“095 - Change LIB$S to STR$. JBS 23-MAY-1979 
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LIBRTL.SR REIL TL bOKUP. A82; 1 . (1) 


soenge call to STRSCOPY. JBS 16-JUL-1979 

6 - pes Lore message symbols as enterne) Ss oge Bogen. and do some 
minor cleanups to the text. JBS 1 

1-007 rig 4 ote EY Y_TABLE, moved to STLMACBS2. REQ, 


1-008 - Use handler to ental signals. RW 22-Jan-1980 
1-009 = Fix bug where STRSCOPY_R was being called tk. h_igngth passed 
4 value rather than oy reference. SBL 11-M 
1-010 = Enhance to recognize additional classes of string 1 eater 
by invoking LIB ee ae _SDESC_R3 to extract length a 
address of ist data aby from descri ser 
Change call to STRSCOPY_R to LIBSSCOPY_R_DX. 
This eliminates the need to establish a handler and the need 
so o,*snvart sits statuses to LIB$ statuses. 
1-011 - Add special-case code to greceys string descriptors that 
read like fixed string descript ort. A 7-0CT-1981. 
1-012 = Redirect vil os from LIB ANALYZE. SDESE 
LIBSANALYZE_SDESC_R2. Use LIBSSCOPY cf "Dxe. to do copying. 
RKR 18-NOV-1981. 
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1-018 B=1984 12:99:08 ERTeRTL SRE ToLOGKUP 082; 1 % (2) 
| 


SWITCHES: 


ooo 
‘C2 0900 CD 


wn 


: 1 H 
; 1 : 
3 1 3 
; 00 1 : 
: 085 1 SWITCHES ADDRESSING _MODE : 
3 , : § ! (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); : 
P | . 
; 689 0088 1! : 
; ww 8088 1 ! LINKAGES ; 
; WF 090 1! | : 
3 544 : REQUIRE "RTLIN:STRLNK'; ! Linkage for LIBSANALYZE_SDESC_R2 ; 
; 94 0 iS 1] ; ; 
: 95 0 a 1 ! TABLE OF CONTENTS: : 
. 7? a 0279 1! : 
; #97 0280 1 3 
; 98 0281 1 FORWARD ROUTINE ; 
; WW 0 S 1 LIBSLOOKUP_KEY; ! Keyword table scanning routine 3 
; 100 02835 1 ‘ 
: 101 BS ee 1! : 
: 136 0285 1 ! INCLUDE FILES: : 
3; WW 0286 1! 3 
: 104 osee 1 : 
; 1S? f4+4 : LIBRARY 'RTLSTARLE'; ! VAX/VMS Literals : 
; 107 444 1 REQUIRE 'RTLIN:RTLPSECT'; ! Define DECLARE_PSECTS macro : 
> 108 0385 1 : 
; 109 0386 1! : 
; 110 0387 1 ! MACROS: : 
3 Wi 0388 1! : 
; Vg 0389 1 !+ : ; 
5 Ti 0390 1 ! Macros used to access various elements of a berverd table built : 
> (114 0391 1 ! by a SLIB_KEY_TABLE macro for use with the LIBSKEY_TABLE keyword 3 
s 195 O36 1 ! Lookup routine. ; 
; 116 0395 1 !- : 
3 Vie 0394 1 3 
s; 138 0395 1 MACRO : 
; 119 M 43 1 $LIB_KEY_LENGTH (TABLE_POINTER) = : : 
: 120 0397 1 .(.TABLE_POINTER)<0,8> ! Length of a keyword table string : 
; 121 m 0398 1 $LIB_REY STRING (TABLE_POINTER) = ; 
. ¥ § 0399 1 .TABLE_POINTER + s ! Address of a keyword table string 3 
3 3 m 0400 1 $LIB_KEY VALUE (TABLE_POINTER) = ; 
: : ¢ ret ! . (TABLE-POIRTER + 4) %; ! Value corresponding to a keyword table entry : 
: 188 0408 | : 
3 ter 0404 1 ! EQUATED SYMBOLS: : 
s tea 0405 1! 3 
: 199 0406 1! None | ; 
; 130 0407 1! 3 
; 13 o's ' : PSECT DECLARATIONS: : 
; 138 3619 ' DECLARE _PSECTS (LIB); =! This module belongs to the LIB facility : 
3; «6135 tig 1 ! OWN STORAGE: 3 
z 7 41 1} : 
: 137 414 1! None 3 
; «4138 0415 1! 3 
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; EXTERNAL REFERENCES: 


shia 'g ROUTINE 
LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, ! Extract Length 
!' and address of 
' 1st data byte 
! from descriptor 
LIBSSCOPY_R_DX6 : STRING_JSB ; ! Copy a by-reference string to a 
t “descriptor of any type. 


'¢ 
The following are the conditions returned by this module 


EXTERNAL Ih ap 
LIB$_ 


rove ! String truncated 
tIBSTAMBKEY ° ! Multiple keyword match found 
LIBS_UNRKEY, ' No seyuere match found 
LIBS_INVARG; ! Invalid argument (s) 


b-se0-1984 91:96:18 AX=11 Bliss-32 V4.0- Page ; 


L IBSLOOKUP_KEY 7% 
1-01 Sep-1 LIBRTL.SRCJLIBLOOKUP.B32;1 (3). 


1 
1 
: 


: 161 z } GLOBAL ROUTINE LIBSLOOKUP_KEY ( Keyword table scanning routine | 
3 4 5 1 STRNG_DESC_ADDR, ' Search string 
> «1646 440 1 KEY_TABLE_ADDR, ' Keyword table 

; 441 1 KEY_VALUE_ADDR, ' Keyword value deposit 

; 166 442 1 ! area 
> 167 445 1 FULL_DESC_ADDR, ' Full keyword deposit 

: 168 0444 1 ' area 
> 169 0445 1 OUTLEN ' Number of bytes stored 
: 170 org 1 ! im FULL _DESC_ADDR 
; Wi 0447 1 

3 176 ork 1 d= 

; Vv 449 1 

: «174 0450 1 !+44 

3 103 bees ! FUNCTIONAL DESCRIPTION: 

s iv We 1} This keyword lookup routine scans a table of keywords (see 
; «178 0454 1! below), attempting to find a keyword which matches a caller- 

; iv 0455 1! specified keyword or keyword abbreviation. 

; 180 0456 1! 

; 18) 0457 1! 

3 ise 0458 1! When a keyword match is found, the following information is 

; is? oF ’ optionally returned to the caller: 

; 185 0461 1! * lLongword value associated with the matched keyword 

; «6186 pnes 1! (KEY_VALUE_ADDR) 

s 87 0465 1! * full keyword string (any descriptor type) 
; «188 0464 1! (FULL_DESC_ADDR) 

; «#6189 0465 1! ‘ 
; 190 0466 1! If an exact keyword match is found (i.e., the caller's search | 
3; «191 0467 1! string is an unabbreviated keyword), no further processing is | 
s 136 0468 1! performed and a normal completion code is returned to the 

; 19 0469 1! caller. Otherwise, after a match has been found, the rest of | 
: 194 0470 1! the keyword table is scanned. If an additional match is found, 
s 995 0471 1! a ‘‘not enough characters’’ completion code is returned to the 

; 138 Bee ! caller. : 

; 198 0474 1! The keyword table, which the caller creates for this routine 
: 199 0475 1! has the following structure: 

: 200 0476 1 | | 
; 6201 0477 1! longword vector 

3 $06 0478 1 $$ —_ om mmmmmmmmmeoeeeeneen} | 
: 20 0479 1! ' vector size - 1 
: i 0% 0 1! =«=__—— beeen emmnmnmenneenneennnnnt 

: 205 481 1! | address of keyword string i------- + 

: 206 048 1t °° ° °»}»™€me eben eenenoenanesd : 

3; 207 4 1! { associated keyword value | V 

3 08 484 1 ' poe ween nr nee se enone eee nena ecses dean meee eeeeeeien eneeeer mentee 
3; 209 0485 1! : ‘ H H | keyword string : 
: 211 487 1! : ‘ H counted ASCII string 

: \¢ 488 1! H ' 

s et 489 1! : ' 

: 216 490 1! : : 

Bee Cpe : 

2 . dere e ere w ee eee eee meme eee meses 

: 9 0495 1! 
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1-019 4 : LIBLOOKUP.B8352;1 (3) | 


14-Sep-1 


01:06:19 AX-11 Bliss-32 v4.0 
9 £98: b8 TL RO 
where the ‘‘counted ASCII string’ starts ' 


4 
4 12 LIBR 
t 
C 


; 218 494 1! ith a byte which is 

s 219 495 1! the unsigned count of the number of ASCII characters which 

: 0 “ae 1! follow. 

; 1 0497 1! 

; ¢ 0499 : FORMAL PARAMETERS: 

; 4 500 1! STRNG_DESC_ADDR.rt.dx = Address of search string descriptor 

: 5 0501 1! KEY TABLE _ADDR.rlu.ra_= Address of keyword table 

; 6 B206 1! CKEY_VALUE_ADDR.wlu.r] = Address of keyword value deposit area 
; 7 me 6 Se (optional) , 
3 8 Bene , | CFULL_DESC_ADDR.wt.dx] = Address of full keyword deposit area 
: 9 505 1! (optional) 
; 0 8208 1 } COUTLEN.ww.r] = Number of bytes stored in FULL_DESC_ADDR 

; 1 0507 1! (optional) 
3 ; 0508 1! 

: 2 0509 1°! IMPLICIT INPUTS: 

> 234 0510 1! 

3 239 0511 1! None 

; 236 Bai¢ 1! 

B ¢or 051 1 ! IMPLICIT OUTPUTS: 

; 238 0514 1! 
3 +4 oie 3 8 None 

: 240 0516 1! 

3; 241 0517 1 ! COMPLETION CODES: 

$ see 0518 1! 

: st 0519 1! SS$_NORMAL = Unique keyword match found 
3 be 0330 1! LIBS_FATERRLIB = Fatal error in Library 
: 2465 0521 1! LIBS_INVSTRDES = Invalid a descriptor 

: 246 05 ¢ 1! LIBS_INVSIRMEM = Insufficient Virtual memory 

; 247 05 ': LIBS_STRTRU = String is truncated : 

; 248 0524 1! LIBS_AMBKEY = Multiple keyword match found (i.e., not enough 

: 4 0525 1! characters specified) 

; 250 S258 1? LIBS_UNRKEY = No keyword match found 

B 2) 0527 1! LIB$_INVARG = Invalid arguments, not enough arguments, bad 
; $26 Bese : keyword table or bad string descriptor 

: 2546 $38 1 ! SIDE EFFECTS: | 
3 $22 B33) 1! 
: 256 05 ; 1! None 

3 gor 0533 1! 

: 58 0534 1 !-<- 
; 259 0535 1 

: 260 B2 $ BEGIN 

s al 

; o¢ 538 TIN 

:; 26 539 ACTUALCOUNT ' Actual parameter count ‘ 

3 soe Bees NULLPARAME TER; ' Test for presence of parameter | 
3 266 b2e8 MAP . 

5 6 54 STRNG_DESC_ADDR : REF BLOCK C, BYTE], ' caller's search string 

3 68 0544 FULL_BESC_ADDR : REF BLOCK C, BYTE) ' returned full key 

; 269 545 OUTLEN : REF VECTOR C1, WORD, UNSIGNED]; ! Number of bytes 

s 70 278 ' stored in 
2 a th ' FULL_DESC_ADDR 
: 27 0349 BIND ! Redefine some routine arguments: 
: 276 550 
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dD 7 
16-Sep-1984 01:06:19 AX-11 Blis 
1er8ep- 1382 33:98:08 «= Etante sae 
KEY_TABLE = .KEY_TABLE_ADDR : VECTOR, ! Caller's keyword table 
KEY_VALUE = .KEY_VALUE_ADDR; ' Caller’s keyword 
! value deposit area 


OCAL 
STRING_LEN 
STRING-ADDR, 


MATCH, 
RETURN_CODE; 


' Length of search string 

! Address of search string 

' Index of a matched keyword table entry 
' Routine return code 

' 


'¢ 
Verify that the caller provided a proper argument List. 


:  oiiatenianeies () LSSU 2) ! If less that 2 arguments were provided, 
RETURN (LIBS_INVARG); ! return an error code to the caller. 


14 
} Prepare to scan the caller's keyword table. 


RETURN_CODE = LIBS_UNRKEY; At bh ad assume no keyword match 
! exists. 
‘+ 
! Extract length and address of ist data byte of search string. 
If error results from attempt to extract, return that error. 


IF_ .STRNG_DESC_ADDR CDSC$B_CLASS] GTRU DSCS$K_CLASS_D 
THEN ! Ose generalized extract 
BEGIN 
oc 
E 


LOCAL RET_STATUS ; 
RET_STATUS = LIBSANALYZE_SDESC_R2 ( .STRNG_DESC_ADDR ; 
STRING_LEN> STRING_ADOR ) ; 


i »RET_STATUS THEN RETURN (.RET_STATUS) ; 


ELSE ! Fetch length and address directly 
BEGIN 
STRING_LEN = .STRNG_DESC_ADDR CDSC$W_LENGTH) ; 
STRING-ADDR =" .STRNG_DESC_ADDR COSC$A_POINTER) ; 


'¢ 
Scan the keyword table for a match with the caller's string. 


INCR INDEX FROM 1 TO .KEY_TABLE BY 2 DO ! Loop until the end of 
BEGIN i the keyword table. 


+ 
! First make sure that the caller's string is not longer than 
: the current keyword. 


iF (.STRING_LEN LEQU SLIB_KEY_LENGTH (KEY_TABLE [.INDEX])) 
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THEN 
14 


i If the caller's string matches the current keyword begin 
additional checking. 


IF CHSEQL(.STRING_LEN, .STRING ADDR 
ie -STRING-LEN, $LIB_KEY_STRING (KEY_TABLE C.INDEX])) 


BEGIN 


+ 
! If the caller's search string is the same Length as 
the keyword it matches 


if (,STRING_LEN EQLU 
? yretB.KEV_LENGTH (KEY_TABLE C.INDEX])) 


BEGIN ! special exact-match lyme tin 
MATCH = . INDEX; Save the current keyword table 
! index, 
RETURN_CODE = SS$_NORMAL; ! indicate a keyword 
! match was found, 
EXITLOOP; ! and bypass further key 
- ! word table scanning. 

END; ! special exact-match processing 


4 
If a match has not already been found, 


IF (.RETURN_CODE EQL LIBS_UNRKEY) 
THEN 


BEGIN 
MATCH = INDEX; pene the current keyword table 


! index 
RETURN_CODE = SS$_NORMAL; ! and indicate a match 
i ! has been found. 


ELSE ' Otherwise, indicate that a multiple 
! keyword match has been found 


BEGIN : 
RETURN_CODE = LIBS_AMBKEY; (i.e., mo enough 


! 
characters provided) 
i 


EXITLOOP; and exit the keyword 
scanning loop. 
END; 
END; ! End of keyword match processing. 


! End of the keyword table searching loop. 


: +4 keyword match was found, return the keyword information to the 


2 ete at 
BLOOKUP.B32;1 


F 
14-Sep-1 


; 7 665 IF (.RETURN_CODE NEQ LIBS_UNRKEY) ! Make sure a keyword match was 
; 390 66 ! found. 

: 391 66 THEN 

; i oes BEGIN ! match was found code 

; 394 670 it the caller provided a parameter to receive the key value, 
; 395 671 ' _return it to him, 

; me of¢ 

s ter 67 

: 98 0674 IF ( NOT NULLPARAMETER (3)) THEN 

; 399 0675 KEY_VALUE = SLIB_KEY_VALUE (KEY_TABLE C.MATCH)); 

; 400 pers 

; 401 67 + : 

; 40 0678 i If the caller has provided a descriptor to receive the matched 
; 40 0679 ' key, return it to him. 

; 0680 ie 

: 405 0681 

: 0682 4 IF ( NOT NULLPARAMETER (4)) 

; 407 0685 3 4 

; 408 0684 4 BEGIN ! returning optional arguments 

: 409 0685 4 

: 410 0686 4 LOCAL 

3; 6411 0687 4 RET_STATUS; 

3 ra 0688 4 

; 41 0689 4 RET_STATUS = won R_DX6 ( 

> 414 0690 4 $LIB_KEY_LENGTH (KEY_TABLE (.MATCH]), 

3; 415 0691 4 $L1B- KEY ge RING (KEY. TABLE C.MATCH]), 

; 416 0692 4 -FULC_DESC_ADDR ) ; 

: 417 0693 4 

; 2i8 boos ? i If the copy failed, record the status 

: 420 0696 4 iF NOT .RET_STATUS THEN RETURN_CODE = .RET_STATUS ; 

: 421 0697 4 

; 422 0698 4 + 

; 423 0699 4 i If the caller is using fixed length strings, he may want 
> 424 0700 4 ! to know how many characters we actually stored, not 

; 425 0701 4 i counting trailing pads. 

; 426 0702 4 i There is no need 8 check status on call to 

: re 4 0703 4 i LIBSANALYZE _SDESC_R 

: 428 0704 4 i Tf the descriptor was bad, it would have gotten caught 
: $¢3 0705 4 i during the copy operation above. 

; 430 0706 4 ie 

; 431 0707 4 

: $38 B 508 5 IF ( NOT NULLPARAMETER (5)) 

: 4 709 4 THEN 

: 434 0710 5 BEGIN ! returning Length 

; 435 0711 5§ LOCAI. 

; 436 Brie 5 FULL_LEN 

> 437 071 3 FULLADDR; 

: 438 0714 IF .FULL-DESC ADDR COSCSB_CLASS] GTRU DSCS$K_CLASS_D 
3 tip Ore ; THEN cin ! Use genéral length extraction 

: 441 19 6 LIBSANALYZE_SDESC_R2 ( sil DESC_ADDR 

> 46 718 6 L_CEN, FULL_ADDR ) ; 
; 46 719 6 END 

3 4446 $0 g ; 

3 6445 0721 ELSE ! Fetch Length directly 


oS me Ieee 0:08:52 YMG Sesr Hg s6i83"4 2:1 Pane 3) 
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—OOCONAOUSWN—O”O 


Se SS 5 5 5 5 5 5 BE EB 
PAO AMNNYVIVIVIVAV > 


; ¢ FULL_LEN = 
724 TLEN 

? OUTLEN (0) = 
$e 

728 

729 

0730 

a 

BF g 

734 

0735 RETURN (.RETURN_CODE); 
07 § 

073 END; 


5B 000000006 
5A 000000006 
02 

50 000000006 
59 

53 04 
02 03 
50 

57 

08 

57 

58 04 
54 

55 08 BC 
08 

68 

08 


AX-11 Bliss-32 V4.0-74 
LIBRTL.SRCJLIBLOOKUP.B32; 1 


-FULL_DESC_ADDR COSCSW_LENGTH J ; 
MIN ae 4 KEY aye (KEY_TABLE C.MATCH]), 
Pr END; ! returning Length 
feos END; ! returning optional arguments 
1 


! match as found code 


i Return the current keyword match return code to the caller. 

' Return the current match code to the 
! caller. . 

! End of LIBSLOOKUP_KEY routine 


NALYZE_SDESC_R2 


AMB 
;- ~tpnkey LIBS_ INVARG 
_LIBSCODE ,NOWRT, 
LIBSLOOKUP_KEY, Save R2,R3,R4,R5,R6,R7,R8,- ; 
R9,R10,R11~ 

BLS UNMET’ SDESC _R2, R11 


aoe 
nm 


oo 


#LIBS_INVARG, RO 


R10, RETURN CODE 
TRNG_D DESC. ADDR, R3 


or > 
a 
wn 


0 
SANALYZE_SDESC_R2 


wr uw 
—DWWOWOoPr "OO 


~- wn 
ror wR 


OrVIINVONIO—--MON LwOVCOW—-CcoOf&omMm—o& 
SOoooooooooooooooooooocooooeo 
Ie re ere rere rere reer rere rere rere rere rere rere ye Pe ee Pe Pe 


SOOOCCCOCOOOOOCOCOCOOOCOOOOoOoOoOoOoo 


DI & & & & 


OF MWATTIO SITIO ' 


9m nS MO SO OWOMs— 9 —- OTC TOO 07 
OOCOooooooooooooooooooooooo 


FoOouinooflo—-wWw =©& 


MOOMVMVLOLSWOFPHR VIVO 


IBS, OOKUP_KEY 


FFC1 


3; Routine Size: 


Sees tee 
x 
o 
= 


54 


240 bytes, 


Routine Base: _LIBSCODE + 0000 


H 
6-$ 
4-S 


1 
1 
59 01 9 SF 
19 1 62 
5A 59 01 64 
98 1 67 
28 4 0 69 
9 oc 
,.% oot 
59 000000006 f 09 oth 
2 08 Fi 7A 
A BBD 
03 6c 91 00 3 
OF 1F 000 
oc AC rf 0088 
OA 13 0008 
50 08 BC46 43 000 
oc =«6BC AO D 4b 
04 6C 91 QOO9A 
4D 1F 00090 
10 AC 0 Q009F 
48 13 Q00A2 
57 10 AC 00 Q00A4 
58 08 BC46 DO O00A8 
51 01 A8 YE QOOAD 
52 57 00 00081 
50 68 9A 00084 
000000006 00 16 00087 
03 50 €8 0008D 
59 50 00 pence 
05 6C 91 000C 
24 CF Babee 
14 AC b 00Cc8 
1F 13 QO0CB 
02 03 A? 91 000CD 
of 1B 00001 
50 7 00 00003 
68 16 BR08 
03 11 0000 
51 67 3 QODA 
50 68 9A 000DD 
51 50 D1 QO0E 
50 i 03 OE 
« 5H 8H 
0 9 DO QOOEC 
04 OOOEF 


ss~ 


ww 
wr 


oO 
wn 


10 


$: 


eats 1 9}: 96:13 AX-11 Bliss-32 V4.0-74 


LIBRTL.SRCJLIBLOOKUP.B52; 1 


MOVL #1, RETURN_CODE 


BRB 
CMPL §- RETURN_CODE, R10 
BNE 

MOVL INDEX TCH 

MOVL PER ETURK. COVE 
BRB 


MOVL gL 16S. AMBKEY, RETURN_CODE 


ACBL §@KEY_TABLE_ADDR, #2, INDEX, 4$ 
CMPL = RETURN_CODE, R10 


CMPB sé AP), #3 

BLSSU 9 

TSTL  12¢AP) 

BEQL 46=s«O9$: 

MOVAL aKEY TABLE_ADDRCMATCH], RO 
MOVL  4(ROJ, @KEY_VALUE_ADDR 
CMPB ss (AP), #4 

BLSSU 148 

TSTL 16(AP) 

BEQL 14$ 

MOVL § FULL_DESC_A 

MOVL KEY TABLE ANDERCRATCH], RB 
MOVAB 1(R8) 

MOVL R7 RS 

MOVZBL (R&) 

JSB Lissécory R_DX6 

BLBS = RET_STATUS, 10S 

MOVL  RET~ STATUS. RETURN_CODE 
CMPB ss, #5 

BLSSU _:14$ 

TSTL  20¢AP) 

BEQL 14$ 

CMPB 18° #2 

BLEQU M18 

MOVL 7 

JSB L188 ROALYZE _SDESC_R2 
BRB 12$ 

MOVZWL (R7), FULL_LEN 

MOVZBL (RB), RO 

CMPL RO, FULL_LEN 

BLEQ 136 

MOVL FULL LE LEN, RO 

MOV) OR TLEN 

MOVL RE tua (ODE. RO 


! End of LIBSLOOKUP_KEY module 


Se Se Se Se Se Se Ge Se Se Ge Be Be Se Ge Be Se Be Be Be Se Be Se Be Se Se Se Se Fe Ge Be Be Se Se Be Ge Be Be Be Se Be Be Ge he Be Be Be Se 


oooooo OOO 
MOAAAA COQ — 
OEUTnsS wWwrnrw ww 


l| 


18 BSLOOKUP_KEY 


-01 


-LIBSCODE 


File 


Bytes 
2 


Library 


~-$255$DUA28: CSYSLIBISTARLET.L32;1 


PL SSSR OEE FELD. MET EAL OPT IRILE) /HOTAACE/L 1994 188 c1, ISL OOKUP/OBJ=0818 +L IBLOOKUP MSRC$:LIBLOOKUP/UPDATE=(ENH$:L IBLOOKUP 


Flessed Time: 


Lines/CPU Min: 


240 code 3 0 data bytes 
00; 36.4 


£936 
oneneel ere 25321 


Memor 
Compi 


Laue C 


114 pages 
omplete 


PSECT SUMMARY 
Attributes 
40 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, 


Statistics 
eeeesese Symbols ------- Pages 
Total Loaded Percent Mapped 
9776 5 0 581 


COMMAND QUALIFIERS 


AX-11 Bliss-32 v4.0 
LIBRTL.SRC LIBLOOKUP. ys 2:1 


CON, PIC,ALIGN(2) 


Processing 
Time 


00:00.7 


AH-BT13A-SE | DIGI 
VAX/VMS_V4.0 CONF 


TAL EQUIPMENT CORPORATION 
IDENTIAL AND PROPRIETARY 


0208 


